home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 14 / hacker14.iso / programacao / visual / perl.exe / {app} / Webroot / cgi-bin / cookie.cgi next >
Encoding:
Text File  |  2003-03-14  |  2.3 KB  |  90 lines
  1. #!perl
  2.  
  3. use CGI qw(:standard);
  4.  
  5. @ANIMALS = sort qw/lion tiger bear pig porcupine ferret zebra gnu ostrich
  6.   emu moa goat weasel yak chicken sheep hyena dodo lounge-lizard
  7.   squirrel rat mouse hedgehog racoon baboon kangaroo hippopotamus
  8.   giraffe/;
  9.  
  10. # Recover the previous animals from the magic cookie.
  11. # The cookie has been formatted as an associative array
  12. # mapping animal name to the number of animals.
  13. %zoo = cookie('animals');
  14.  
  15. # Recover the new animal(s) from the parameter 'new_animal'
  16. @new = param('new_animals');
  17.  
  18. # If the action is 'add', then add new animals to the zoo.  Otherwise
  19. # delete them.
  20. foreach (@new) {
  21.     if ( param('action') eq 'Add' ) {
  22.         $zoo{$_}++;
  23.     }
  24.     elsif ( param('action') eq 'Delete' ) {
  25.         $zoo{$_}-- if $zoo{$_};
  26.         delete $zoo{$_} unless $zoo{$_};
  27.     }
  28. }
  29.  
  30. # Add new animals to old, and put them in a cookie
  31. $the_cookie = cookie(
  32.   -name    => 'animals',
  33.   -value   => \%zoo,
  34.   -expires => '+1h'
  35. );
  36.  
  37. # Print the header, incorporating the cookie and the expiration date...
  38. print header ( -cookie => $the_cookie );
  39.  
  40. # Now we're ready to create our HTML page.
  41. print start_html ('Animal crackers');
  42.  
  43. print <<EOF;
  44. <h1>Animal Crackers</h1>
  45. Choose the animals you want to add to the zoo, and click "add".
  46. Come back to this page any time within the next hour and the list of
  47. animals in the zoo will be resurrected.  You can even quit Netscape
  48. completely!
  49. <p>
  50. Try adding the same animal several times to the list.  Does this
  51. remind you vaguely of a shopping cart?
  52. <p>
  53. <center>
  54. <table border>
  55. <tr><th>Add/Delete<th>Current Contents
  56. EOF
  57. ;
  58.  
  59. print "<tr><td>", start_form;
  60. print scrolling_list (
  61.   -name     => 'new_animals',
  62.   -values   => [@ANIMALS],
  63.   -multiple => 1,
  64.   -override => 1,
  65.   -size     => 10 ),
  66.   "<br>";
  67. print submit ( -name => 'action', -value => 'Delete' ),
  68.   submit( -name => 'action', -value => 'Add' );
  69. print end_form;
  70.  
  71. print "<td>";
  72. if (%zoo) {    # make a table
  73.     print "<ul>\n";
  74.     foreach ( sort keys %zoo ) {
  75.         print "<li>$zoo{$_} $_\n";
  76.     }
  77.     print "</ul>\n";
  78. }
  79. else {
  80.     print "<strong>The zoo is empty.</strong>\n";
  81. }
  82. print "</table></center>";
  83.  
  84. print <<EOF;
  85. <hr>
  86. <ADDRESS>Lincoln D. Stein</ADDRESS><BR>
  87. <A HREF="./">More Examples</A>
  88. EOF
  89. ;
  90. print end_html;